home *** CD-ROM | disk | FTP | other *** search
/ Aminet 15 / Aminet 15 - Nov 1996.iso / Aminet / misc / math / Laplace.lha / Laplace / Data / Projects.lha / physic_PI_42 < prev    next >
Encoding:
Text File  |  1996-06-28  |  611 b   |  40 lines
  1. #LAPLACE
  2. #USEFLOAT=FALSE
  3. #SIMPLIFY=TRUE
  4. #ERRBND=15
  5. #EXPDSP=5
  6. #PREC=8
  7. #F1=f(x)=
  8. #F2=g(x)=
  9. #F3=h(x)=f(x)/g(x)
  10. #F4=matrix(
  11. #F5=vector(
  12. #F6=diff(f)
  13. #F7=diff(g)
  14. #F8=diff(h)
  15. #F9=taylor(f,0)
  16. #F10=taylor(f,1)
  17. #F11=%(run type s:startup-sequence)
  18. #F12=
  19. #F13=
  20. #F14=
  21. #F15=
  22. #F16=
  23. #F17=
  24. #F18=
  25. #F19=
  26. #F20=
  27. c_w=4.182
  28. m_w=147
  29. W=59.1
  30. t_1=100
  31. c(W,t_2,~t,m)=(m_w*c_w+W)/m*(~t-t_2)/(t_1-~t)
  32. dc(W,dW,t_2,dt_2,~t,~dt,m)=abs(diff(c,W))*dW+abs(diff(c,t_2))*dt_2+abs(diff(c,~t))*~dt
  33. c(W,20.4,29.4,571.7)
  34. dc(W,6.7,20.4,0.2,29.4,0.3,571.7)
  35. c(W,36,45.6,102)
  36. dc(W,6.7,36,0.2,45.6,0.4,102)
  37. c(W,28.3,37.4,140)
  38. dc(W,6.7,28.3,0.2,27.4,0.2,140)
  39.  
  40.